home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / PASCAL / 0193.ZIP / WRITELIN.INC < prev    next >
Text File  |  1985-03-08  |  898b  |  28 lines
  1.  
  2. Procedure Writelin(long_string:maxstr; color: integer);
  3.  
  4.                         {for monochrome change to $B000 --N.J.R}
  5.                                                   {====}
  6. var screen_array: Array[1..4000] of byte Absolute $B800:$0000;
  7.     scr_pos,str_len, real_pos: integer;           {====}
  8.  
  9. begin
  10. {$I-}
  11.      str_len:=length(long_string);
  12.      scr_pos:=1;
  13.      for real_pos:=1 to str_len do
  14.                        begin
  15.                             screen_array[line_pos+scr_pos]:=ord(copy(long_string,real_pos,1));
  16.                             screen_array[line_pos+scr_pos+1]:=color;
  17.                             scr_pos:=scr_pos+2;
  18.                        end;
  19.     line_pos:=line_pos+160;
  20.     if line_pos > 3800 then
  21.                        begin
  22.                             clrscr;
  23.                             line_pos:=0;
  24.                        end
  25. {$I+}
  26. end;
  27.  
  28.